home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1997 / MacHack 1997.toast / Hacks / Hacks ’95 / Hex Abacus / Abacus.Def < prev    next >
Encoding:
Text File  |  1995-06-24  |  1006 b   |  44 lines  |  [TEXT/MPS ]
  1. // Abacus.Def
  2. // 
  3. // Copyright 1995 Gary J Kacmarcik
  4. // All Rights Reserved
  5. //
  6. // Modification History:
  7. //  22 JUN 95  GJK  began at MacHack
  8. //  24 JUN 95  GJK  finished 1st version
  9.  
  10. // operation #'s:
  11. Attribute    Endian    1;    // and 2
  12. Attribute    Base    3;    // and 4
  13.  
  14. Define Class Abacus;
  15.     inherits from Box;
  16.         
  17.     // place to store the value of each row
  18.     field    row0:        SignedShort;
  19.     field    row1:        SignedShort;
  20.     field    row2:        SignedShort;
  21.     field    row3:        SignedShort;
  22.     field    row4:        SignedShort;
  23.     field    row5:        SignedShort;
  24.     field    row6:        SignedShort;
  25.     field    row7:        SignedShort;
  26.     field    row8:        SignedShort;
  27.     field    row9:        SignedShort;
  28.     field    row10:        SignedShort;
  29.     field    row11:        SignedShort;
  30.     field    row12:        SignedShort;
  31.     field    row13:        SignedShort;
  32.     field    row14:        SignedShort;
  33.     field    row15:        SignedShort;
  34.     
  35.     field    endian:        SignedShort, getter;    // 1=big, 0=little
  36.     field    base:        SignedShort, getter;    // 1=hex, 0=decimal
  37.     
  38.     attribute    Endian:    SignedShort;
  39.     attribute    Base:    SignedShort;
  40.     
  41.     overrides Draw;
  42.     overrides Touch;
  43. End Class;
  44.